home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / bin / gnome-terminal.wrapper < prev    next >
Encoding:
Text File  |  2009-10-20  |  1.4 KB  |  82 lines
  1. #! /usr/bin/perl -w
  2.  
  3. my $login=0;
  4.  
  5. while ($opt = shift(@ARGV))
  6. {
  7.     if ($opt eq '-display')
  8.     {
  9.     $ENV{'DISPLAY'} = shift(@ARGV);
  10.     }
  11.     elsif ($opt eq '-name')
  12.     {
  13.     $arg = shift(@ARGV);
  14.     push(@args, "--window-with-profile=$arg");
  15.     }
  16.     elsif ($opt eq '-n')
  17.     {
  18.     # Accept but ignore
  19.     print STDERR "$0: to set an icon, please use -name <profile> and set a profile icon\n"
  20.     }
  21.     elsif ($opt eq '-T' || $opt eq '-title')
  22.     {
  23.     push(@args, '-t', shift(@ARGV));
  24.     }
  25.     elsif ($opt eq '-ls')
  26.     {
  27.     $login = 1;
  28.     }
  29.     elsif ($opt eq '+ls')
  30.     {
  31.     $login = 0;
  32.     }
  33.     elsif ($opt eq '-geometry')
  34.     {
  35.     $arg = shift(@ARGV);
  36.     push(@args, "--geometry=$arg");
  37.     }
  38.     elsif ($opt eq '-fn')
  39.     {
  40.     $arg = shift(@ARGV);
  41.     push(@args, "--font=$arg");
  42.     }
  43.     elsif ($opt eq '-fg')
  44.     {
  45.     $arg = shift(@ARGV);
  46.     push(@args, "--foreground=$arg");
  47.     }
  48.     elsif ($opt eq '-bg')
  49.     {
  50.     $arg = shift(@ARGV);
  51.     push(@args, "--background=$arg");
  52.     }
  53.     elsif ($opt eq '-tn')
  54.     {
  55.     $arg = shift(@ARGV);
  56.     push(@args, "--termname=$arg");
  57.     }
  58.     elsif ($opt eq '-e')
  59.     {
  60.     $arg = shift(@ARGV);
  61.     if (@ARGV)
  62.     {
  63.         push(@args, '-x', $arg, @ARGV);
  64.         last;
  65.     }
  66.     else
  67.     {
  68.         push(@args, '-e', $arg);
  69.     }
  70.     last;
  71.     }
  72.     elsif ($opt eq '-h' || $opt eq '--help')
  73.     {
  74.     push(@args, '--help');
  75.     }
  76. }
  77. if ($login == 1)
  78. {
  79.     @args = ('--login', @args);
  80. }
  81. exec('gnome-terminal',@args);
  82.